home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / WINDOWS / WIN_MORT.ARJ / WINMORT.CPP < prev    next >
Text File  |  1992-01-12  |  4KB  |  189 lines
  1. /* WINMORT.CPP
  2. * 
  3. *    Description:    Basic Mortgage Calculator for Windows 3.0
  4. *
  5. *    Author:            Robert H. Kornberg
  6. *    Date:                1-03-91
  7. *
  8. */
  9.  
  10. #include <stdio.h>        // Standard "C" header files
  11. #include <stdlib.h>
  12. #include <string.h>
  13. #include <math.h>
  14.  
  15. #include <owl.h>            // Object Windows Header Files
  16. #include <edit.h>
  17. #include <static.h>
  18.  
  19. #include "moneycl.h"        // Header file for the MONEYCL class
  20.  
  21. #include "winmort.h"        // Header FIle containing Resource Ids
  22.  
  23. #define PRINSIZE    18
  24. #define TERMSIZE    3
  25. #define RATESIZE    7
  26. #define POINTSIZE    7
  27. #define PAYSIZE        18
  28. #define APRSIZE        7
  29.  
  30. typedef struct {                        // Dialog Box Transfer Buffer
  31.     char principle[PRINSIZE];
  32.     char term[TERMSIZE];
  33.     char rate[RATESIZE];
  34.     char points[POINTSIZE];
  35.     char payment[PAYSIZE];
  36.     char apr[APRSIZE];
  37. } MortFields;
  38.  
  39. // Main window containing the calculator fields
  40.  
  41. _CLASSDEF(TMortCalc)
  42. class TMortCalc : public TDialog
  43. {
  44.     MoneyCl MonthlyAmt, Principle;
  45.     double Rate, Points, APR;
  46.     int Term;
  47.     MortFields *FormData;
  48.     PTEdit    PPrinciple;
  49.     PTStatic PMonPay, PAPR;
  50. public:
  51.     TMortCalc (PTWindowsObject AParent);
  52.     ~TMortCalc();
  53.     virtual LPSTR GetClassName();
  54.     virtual void ProcessPrinciple(RTMessage Msg) = [ID_FIRST + id_Principle];
  55.     virtual void CalcMonthlyAmount() = [ID_FIRST + id_CalcBtn];
  56.     virtual void ClearAll() = [ID_FIRST + id_ClearBtn];
  57.     virtual void CalcAmounts();
  58.     virtual double Mort();
  59. };
  60.  
  61. TMortCalc::TMortCalc(PTWindowsObject AParent) : TDialog(AParent, MAKEINTRESOURCE(DIAG_MORTCALC))
  62. {
  63.     PPrinciple = new TEdit (this, id_Principle, PRINSIZE);
  64.     new TEdit (this, id_Term, TERMSIZE);
  65.     new TEdit (this, id_Rate, RATESIZE);
  66.     new TEdit (this, id_Points, POINTSIZE);
  67.     PMonPay = new TStatic (this, id_Monthly, PAYSIZE);
  68.     PAPR = new TStatic (this, id_APR, APRSIZE);
  69.  
  70.     FormData = new MortFields;
  71.     memset (FormData, 0, sizeof(MortFields));
  72.  
  73.     TransferBuffer = FormData;
  74.  
  75.     PMonPay->EnableTransfer();
  76.     PAPR->EnableTransfer();
  77.  
  78. }
  79.  
  80. TMortCalc::~TMortCalc()
  81. {
  82.     delete (PPrinciple);
  83.     delete (PMonPay);
  84.     delete (PAPR);
  85.  
  86.     delete (FormData);
  87. }
  88.  
  89. void TMortCalc::ClearAll()
  90. {
  91.     memset (FormData, 0, sizeof(MortFields));
  92.     TransferData (TF_SETDATA);
  93.  
  94.     PostMessage (HWindow, WM_NEXTDLGCTL, PPrinciple->HWindow, 1);
  95. }
  96.  
  97. LPSTR TMortCalc::GetClassName()
  98. {
  99.   return "BorDlg";
  100. }
  101.  
  102. void TMortCalc::CalcMonthlyAmount()
  103. {
  104.     TransferData (TF_GETDATA);
  105.  
  106.     Principle.SetValue( FormData->principle );
  107.     Rate = atof (FormData->rate)/100.0;
  108.     Points = atof (FormData->points)/100.0;
  109.     Term = atoi (FormData->term);
  110.  
  111.     APR = Rate;
  112.  
  113.     CalcAmounts();
  114.  
  115.     strcpy(FormData->payment, MonthlyAmt.MoneyStr());
  116.     sprintf(FormData->apr, "%.2lf", APR);
  117.  
  118.     TransferData (TF_SETDATA);
  119.  
  120.     PostMessage (HWindow, WM_NEXTDLGCTL, PPrinciple->HWindow, 1);
  121.  
  122. }
  123.  
  124. void TMortCalc::CalcAmounts()
  125. {
  126.     Points *= Principle.MoneyVal();
  127.     MonthlyAmt.SetValue(Mort());
  128.     Principle.SetValue( Principle.MoneyVal() - Points );
  129.  
  130.     double test, testpay, ifp;
  131.  
  132.     test = Rate;
  133.  
  134.     for (ifp = test; ifp <= 0.25; ifp += 0.0001)
  135.     {
  136.         APR = ifp;
  137.         testpay = Mort();
  138.         if (testpay >= MonthlyAmt.MoneyVal())
  139.             break;
  140.     }
  141.  
  142.     APR *= 100.0;
  143. }
  144.  
  145. double TMortCalc::Mort()
  146. {
  147.     return Principle.MoneyVal()/((1-pow(1+APR/12,-1*Term*12))/(APR/12));
  148. }
  149.  
  150. void TMortCalc::ProcessPrinciple(RTMessage Msg)
  151. {
  152.     if (  Msg.LP.Lo != 0 )
  153.         if ( Msg.LP.Hi == EN_KILLFOCUS)
  154.             {
  155.             char tempPrin[MONEYSIZE];
  156.  
  157.             PPrinciple->GetText(tempPrin, MONEYSIZE);
  158.             Principle.SetValue(tempPrin);
  159.             PPrinciple->SetText ( Principle.MoneyStr());
  160.             }
  161. }
  162.  
  163. // Standard OWL Application Class
  164.  
  165. class TMortApp : public TApplication
  166. {
  167. public:
  168.   TMortApp(LPSTR AName, HANDLE hInstance, HANDLE hPrevInstance,
  169.     LPSTR lpCmdLine, int nCmdShow)
  170.     : TApplication(AName, hInstance, hPrevInstance, lpCmdLine, nCmdShow) {};
  171.   virtual void InitMainWindow();
  172. };
  173.  
  174. void TMortApp::InitMainWindow()
  175. {
  176.   MainWindow = new TMortCalc(NULL);
  177. }
  178.  
  179. // Program Entry Point
  180.  
  181. int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance,
  182.   LPSTR lpCmdLine, int nCmdShow)
  183. {
  184.   TMortApp PApp("Mortgage Calculator", hInstance, hPrevInstance,
  185.                lpCmdLine, nCmdShow);
  186.   PApp.Run();
  187.   return PApp.Status;
  188. }
  189.